clear
use Figure01.dta, clear
format r_p %9.3f

label define question 1 "Aid to blacks" 2 "Abortion" 3 "Jobs" ///
	4 "Health Insurance" 5 "Defense Spending" 6 "Goverment Spending", replace
label values question question

sort question year

replace unit=36.7 if year==2020

sort year
twoway (line r_tau_b year if question==1, lcolor(black) lwidth(medthick)) ///
	 (line r_tau_b year if question==2, lcolor(black) lwidth(medthick) lpattern("--")) ///
	 (line r_tau_b year if question==3, lcolor(black) lwidth(medthick) lpattern("_")) ///
	 (line r_tau_b year if question==4, lcolor(black) lwidth(medthick) lpattern("-...")) ///
	 (line r_tau_b year if question==5, lcolor(black) lwidth(medthick) lpattern("_...")) ///
	 (line r_tau_b year if question==6, lcolor(black) lwidth(medthick) lpattern(".")) ///
	 (line unit year, lcolor(white) lwidth(medthick) yaxis(2)) ///
	 , ///
	 xtitle (Year) ///
	 ytitle("Correlation (Kendall's {&tau})" " ") ///
	 ytitle("Unit Response Rate" " ", axis(2)) ///
	 ylabel(0(0.2)1, angle(0) nogrid) ///
	 ylabel(0 20 "20%" 40 "40%" 60 "60%" 80 "80%" 100 "100%", angle(0) nogrid axis(2)) ///
	 graphregion(fcolor(white)) ///
	 plotregion(fcolor(gs10) lcolor(black)) ///
	 legend(on region(fcolor(gs10) lcolor(black)) rows(3) size(small) ///
		 label(1 "Aid to blacks") label(2 "Abortion") label(3 "Jobs") ///
		 label(4 "Health Insurance") label(5 "Defense Spending")  ///
		 label(6 "Goverment Spending") label(7 "Unit Response Rate")  ///
		 holes(7) order(1 6 2 4 5 3 7)) ///
	 xlabel(1984(4)2020)
	
graph display, xsize(9) ysize(6)
graph export Figure01.pdf, replace
